home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / GENIE.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  88 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for GEnie: remote,password,userid
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   userid:   signon userid (required)
  10.  p?0 findq "\n%remote," %lib/%ZCUSER.ids
  11.  if ? split z0 , , "";if %z2 goto haveuser
  12.  queue delete;lput "  No entry for '%remote' in '%lib/%ZCUSER.ids'\r\n"
  13.  gosub ak
  14.  return
  15. haveuser:
  16.  ena -K!Z sets s5 "%z2,%z1"
  17.  set s9 "";set z0 "";set z1 ""
  18.  set s6 "";accept s6 "\r\nID Number(s) of File(s) to Download, if any:"
  19.  set s0 0 ;ife %s6==0 goto cap;p?0 sets s7 %s6
  20. qs:
  21.  split s7 , \& ;sets s7 %z1 ;ife %z0==0 goto qst;while %z0<5 sets z0 " %z0"
  22.  findq \n%z0 %n7/genie.lst
  23.  if %z0>0 lput "\r\n%z0";split z0 " " " " " " " " \& ;setn s0 s0+z3
  24.  goback qs
  25. qst:
  26.  : compute estimate based on 205 chars/sec at $10/hour
  27.  set? z1 ?;lput "\r\n\n%s0 bytes in %z1 files: estimate "
  28.  setn z2 s0/205;setn z3 z2/60;setn z4 z3*60;setn z5 z2-z4
  29.  setn z6 z2*10/36+10;setn z7 z6/100;setn z8 z7*100;setn z9 z6-z8
  30.  while %z9<2 sets z9 "0%z9"
  31.  lput "%z3 minutes %z5 seconds, approx $%z7.%z9\r\n"
  32.  set z0 "";set z1 ""
  33. cap:
  34.  set s0 "";set s7 "";while !Js0,yn acceptl1 s0 "\r\nCapture Directory(Y/N)?"
  35.  if is0,y display inhibit;open %n7/genie.lst;grab s0;ife t nolog closetx;display noinhibit;split s0 " " "";sets s7 %z0
  36.  set s8 "";while !Js8,yn acceptl1 s8 "\r\nList Unread Mail(y/n)?"
  37.  if %s6||%s7||is8,y accept s9 "\r\nSubsequent Command(e.g. BYE):"
  38.  ena -8n 454-0890;ife !c return
  39.  handshake on;ena -h!E;estimate 0 2200;z pp150 pt150 pB8
  40.  set fpgup "@accept s0 Upload-Filename:;if %s0 sb %s0"
  41.  set fpgdn "@echof ***Ymodem-Receive***;rb"
  42.  pat;pat 24cp "Press <RETURN>, or <S>CROLL?" "\336s\r"
  43.  pat 0 "U#="
  44.  sleep 30;mput "H\336H\336H"
  45.  wait -f30;pat;put %s5\r
  46.  pat 0c "Do you want to join (YES/NO)?" "NO\r"
  47.  pat 1c "#, <H>elp, or <CR> to continue?" \r
  48.  pat 2i "Enter #, or <H>elp?";wait -f60
  49.  if !%s6 ife %s7 goto list;ife is8,y goto read;goto none
  50.  put "M 616;6\r"
  51.  pat;pat 0i "wnload request or <H>elp?" "\336\&%s6\r";wait -f300
  52.  pat;pat 0c "nload, <L>ist, or <Q>uit.\r\n?" "\336d\r"
  53.  pat 1c "item, or <RETURN> to skip?" "\3364\r"
  54.  pat 2c "these files? (Y/N)?" "\336y\r"
  55.  pat 3c "<Y>modem/<Z>modem/<N>o" \336z\r
  56.  pat 4i "**\030";wait -f90
  57.  rz -mW4096;pat;pat 0 "another file (Y/N)?";wait -f90
  58.  put n\r;if !%s7 ife is8,y goto reade;goto done
  59.  pat;pat 0 "or <H>elp?";wait -f300;put 2\r
  60.  goto liste
  61. list:
  62.  put "m 616;2\r"
  63. liste:
  64.  pat;pat 0 "<Return> for ALL";wait -f40;if n bye;ife r nolog close;return
  65.  pat;put \r;pat 0i " ------ ---\r\n\r\n";wait -f40;if r nolog close
  66.  dis -i;create -yS %n6/libfile.cap
  67.  pat;pat 0i \n%s7
  68.  setn s7 s7-1;pat 1i \n%s7;setn s7 s7-1;pat 2i \n%s7
  69.  setn s7 s7-1;pat 3i \n%s7;setn s7 s7-1;pat 4i \n%s7
  70.  wait -f30;break;if r close
  71.  pat;pat 0i \n @ki;wait -f30
  72.  create -+S %n9/ZC%d%ano.LOG
  73.  ife is8,y goto reade;goto done
  74. read:
  75.  put "m 200;2\r";goto readb
  76. reade:
  77.  pat;pat 0i "or <H>elp?" "M 200;2\r";wait -f300
  78. readb:
  79.  pat;pat 0i "\nPress <RETURN>?" \r
  80.  pat 1i "\nYou have no new letters";wait -f300
  81. done:
  82.  if %s9 pat;pat 0i "or <H>elp?" "\336%s9\r";wait -f30
  83.  goto term
  84. none:
  85. term:
  86.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  87.  ife r nolog close;return
  88.